home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / docs / misc / UMSFAQv2.lha / UMS-FAQ / bin / newsup < prev    next >
Encoding:
Text File  |  1995-05-11  |  821 b   |  44 lines
  1. ; Magic Stuff ! check for news
  2.  
  3. sumsprint MY_1STNAME "" "exported=0 AND group!=*"*"" FO="<MsgID,%s> - <Group,%s>\n" >ram:listnews
  4.  
  5. IF `list ram:listnews lformat="%l"` EQ "empty"
  6.     ECHO "No News to send"
  7.     SKIP goofy
  8. ENDIF
  9.  
  10. ECHO "Sending :"
  11. TYPE ram:listnews
  12. DELETE ram:listnews QUIET
  13.  
  14. IF EXISTS ram:newsup
  15.     DELETE ram:newsup
  16. ENDIF
  17.  
  18. ; script to send news up
  19.  
  20. LAB retry
  21.  
  22. umsnntp -h news.demon.co.uk >ram:newsup
  23.  
  24. IF EXISTS ram:newsup
  25.  
  26.     ; Check the size of the newsup file.  This will be "empty" if no news sent or
  27.     ; it will contain something if news has left the machine
  28.  
  29.     IF `list ram:newsup lformat="%l"` EQ "empty"                ; no news went
  30.         ECHO "Retrying"
  31.         SKIP BACK retry
  32.     ELSE                                                        ; news dispatched
  33.         TYPE ram:newsup
  34.         DELETE ram:newsup
  35.         DELETE env:newssize
  36.     ENDIF
  37.  
  38. ECHO "News Sent O.K."
  39.  
  40. LAB goofy
  41.  
  42. WAIT 5
  43. ENDCLI
  44.